home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 19
/
Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso
/
Aminet
/
demo
/
mag
/
trash3_2.lha
/
fuentes
/
FuentesFXC2P.lha
/
FXC2P.Punto
< prev
Wrap
Text File
|
1992-09-02
|
566b
|
29 lines
* FX_Punto
* Rutina para pintar puntos en PVC para FX_C2P
* Programado y optimizado por Xele/Odrusba
;¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
; D0.B = Color del punto
; D1.W = X
; D2.W = Y
; A5.L = PVC
; A6.L = FX_Tabla
FX_Punto ;SUBRUTINA
movem.l d1-d3/a5,-(sp)
moveq #0,d3
move.w d2,d3
lsl.w #8,d2
lsl.w #6,d3
add.l d3,d2 ;D2 = (320 * Y)
move.w (a6,d1.w*2),d3 ;D3 = Tabla[X]
add.w d3,d2 ;Offset ajustado
add.l d2,a5
move.b d0,(a5)
movem.l (sp)+,d1-d3/a5
rts ;FINSUB